program TTServer;

{$APPTYPE CONSOLE}

{%ToDo 'TTServer.todo'}

uses
{$IFNDEF MSWINDOWS}
  Libc,
{$ENDIF}
  WebBroker,
  CGIApp,
  Main in 'Main.pas' {WebModule1: TWebModule},
{$IFDEF MSWINDOWS}
  Konst in '..\TTennis\Konst.pas';
{$ELSE}
  Konst in '../TTennis/Konst.pas';
{$ENDIF}

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'TTServer';
  Application.CreateForm(TWebModule1, WebModule1);
  Application.Run;
end.
